home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / STRING / fill_blank.s < prev    next >
Encoding:
Text File  |  1996-01-27  |  260 b   |  20 lines
  1.  
  2. **
  3. ** fill_blank
  4. **
  5. ** Copyright © 1995, Guichard Damien.
  6. **
  7.  
  8. fill_blank
  9.         move.l  ($8,a1),d0
  10.         beq.s   .end
  11.         sub.l   #1,d0
  12.         move.l  #' ',d1
  13.         move.l  ($C,a1),a2
  14.  
  15. .loop   move.b  d1,(a2)+
  16.         dbra    d0,.loop
  17.  
  18. .end    rts
  19.  
  20.